home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / robin hood (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  5.1 KB  |  114 lines
  1. 5 poke53281,.:poke53280,12:printchr$(147)chr$(14)chr$(8)
  2. 8 gosub61000
  3. 10 poke214,9:print:printtab(11)"[159][210][207][194][201][206] [200][207][207][196]'[211] [199][207][204][196]"
  4. 11 printtab(5)"[154][193] [199]ame from [205]erry [207]lde [202]apan"
  5. 12 sa=14336:hi=int(sa/256):lo=sa-hi*256
  6. 13 sys57812"robin.font",8,0
  7. 14 poke780,0:poke781,lo:poke782,hi:sys65493:poke53272,31
  8. 15 poke147,0:sys57812"robin.mus",8,1:sys62631
  9. 16 poke147,0:sys57812"ss",8,1:sys62631
  10. 17 print"          [201]nstructions [y/n]"
  11. 18 getk$:ifk$=""then18
  12. 19 ifk$="y"thengosub5000:print"[147]":gosub61000
  13. 20 poke214,13:print:print"[150]           [204]oading [208]rogram..."
  14. 21 goto60000
  15. 5000 print"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  16. 5010 print"[221]       [150]   [210]obin [200]ood's [199]old           [154][221]";
  17. 5020 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  18. 5030 print"{$7d}                                      [146][154]{$7d}";
  19. 5040 print"{$7d} Well, it seems that Robin Hood and   [146][154]{$7d}";
  20. 5050 print"{$7d} his band of Merry Men are still at   [146][154]{$7d}";
  21. 5060 print"[221] it.  [217]our job as [210]obin is to go      [146][154][221]";
  22. 5070 print"{$7d} around Sherwood Forest collecting    [146][154]{$7d}";
  23. 5080 print"[221] all the bags of gold from the rich   [146][154][221]";
  24. 5090 print"[221] to give to the poor.                 [146][154][221]";
  25. 5100 print"{$7d}                                      [146][154]{$7d}";
  26. 5110 print"{$7d} Naturally, the Sheriff of Nottingham [146][154]{$7d}";
  27. 5120 print"{$7d} has put some restrictions on your    [146][154]{$7d}";
  28. 5130 print"{$7d} movements and a little advanced      [146][154]{$7d}";
  29. 5140 print"{$7d} planning will be necessary.          [146][154]{$7d}";
  30. 5150 print"{$7d}                                      [146][154]{$7d}";
  31. 5160 print"{$7d} There are seven challenges or        [146][154]{$7d}";
  32. 5170 print"{$7d} puzzles for you to solve.  Use the   [146][154]{$7d}";
  33. 5180 print"{$7d} cursor keys to guide Robin (&)       [146][154]{$7d}";
  34. 5190 print"[221] through the forest.                  [146][154][221]";
  35. 5200 print"{$7d}                                      [146][154]{$7d}";
  36. 5210 print"{$7d}                                      [146][154]{$7d}";
  37. 5220 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  38. 5230 print"{$7d}             [153]Press RETURN             [154]{$7d}";
  39. 5240 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,14
  40. 5250 getk$:ifk$<>chr$(13)then5250
  41. 5260 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  42. 5270 print"{$7d}       [150] Robin Hood's Challenge        [154]{$7d}";
  43. 5280 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  44. 5290 print"{$7d}                                      [146][154]{$7d}";
  45. 5300 print"{$7d} The Sheriff has put these            [146][154]{$7d}";
  46. 5310 print"{$7d} limitations on your movement:        [146][154]{$7d}";
  47. 5320 print"{$7d}                                      [146][154]{$7d}";
  48. 5330 print"{$7d} 1] You may move only horizontally or [146][154]{$7d}";
  49. 5340 print"{$7d}    vertically.                       [146][154]{$7d}";
  50. 5350 print"{$7d}                                      [146][154]{$7d}";
  51. 5360 print"{$7d} 2] You may not retrace your last     [146][154]{$7d}";
  52. 5370 print"{$7d}    step.  For example, if you have   [146][154]{$7d}";
  53. 5380 print"{$7d}    just moved from left to right,    [146][154]{$7d}";
  54. 5390 print"{$7d}    your next move may not be from    [146][154]{$7d}";
  55. 5400 print"{$7d}    right to left.                    [146][154]{$7d}";
  56. 5410 print"{$7d}                                      [146][154]{$7d}";
  57. 5420 print"{$7d} 3] You may not move through the      [146][154]{$7d}";
  58. 5430 print"{$7d}    trees (#).                        [146][154]{$7d}";
  59. 5440 print"{$7d}                                      [146][154]{$7d}";
  60. 5450 print"{$7d}                                      [146][154]{$7d}";
  61. 5460 print"{$7d}                                      [146][154]{$7d}";
  62. 5470 print"{$7d}                                      [146][154]{$7d}";
  63. 5480 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  64. 5490 print"{$7d}             [153]Press RETURN             [154]{$7d}";
  65. 5500 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,14
  66. 5510 getk$:ifk$<>chr$(13)then5510
  67. 5520 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  68. 5530 print"{$7d}[150]        Robin Hood's Challenge        [154]{$7d}";
  69. 5540 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  70. 5550 print"{$7d}                                      [146][154]{$7d}";
  71. 5560 print"{$7d} 4] You may move through the          [146][154]{$7d}";
  72. 5570 print"{$7d}    clearings (%) but only from       [146][154]{$7d}";
  73. 5580 print"{$7d}    gold bag to gold bag ($).         [146][154]{$7d}";
  74. 5590 print"{$7d}                                      [146][154]{$7d}";
  75. 5600 print"[221] [200]owever, you may:                    [146][154][221]";
  76. 5610 print"{$7d}                                      [146][154]{$7d}";
  77. 5620 print"{$7d} 5] Press 'H' for a quick review      [146][154]{$7d}";
  78. 5630 print"{$7d}    of these instructions.            [146][154]{$7d}";
  79. 5640 print"{$7d}                                      [146][154]{$7d}";
  80. 5650 print"[221] 6] [208]ress '[205]' to soothe your nerves   [146][154][221]";
  81. 5660 print"[221]    with a little [205]ozart.             [146][154][221]";
  82. 5670 print"{$7d}                                      [146][154]{$7d}";
  83. 5680 print"[221] 7] [208]ress '[211]' to see one possible     [146][154][221]";
  84. 5690 print"[221]    solution.                         [146][154][221]";
  85. 5700 print"{$7d}                                      [146][154]{$7d}";
  86. 5710 print"{$7d} 8] Press 'Q' to return to the main   [146][154]{$7d}";
  87. 5720 print"{$7d}    menu.                             [146][154]{$7d}";
  88. 5730 print"{$7d}                                      [146][154]{$7d}";
  89. 5740 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
  90. 5750 print"{$7d}[153]             Press RETURN             [154]{$7d}";
  91. 5760 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,14
  92. 5770 getk$:ifk$<>chr$(13)then5770
  93. 5780 return
  94. 5790 :
  95. 60000 open15,8,15,"r0:robin=robin":input#15,er:close15
  96. 60010 if er<>63 then print"":end
  97. 60020 a$="robin":q$=chr$(34)
  98. 60030 print"[144]load"q$a$q$",8"
  99. 60040 print"run":poke631,13:poke632,13:poke198,2:end
  100. 61000 poke214,15:print
  101. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  102. 61120 print"  [152]                                    "
  103. 61130 print"                                      "
  104. 61140 print"                                      "
  105. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] 60      "
  106. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  107. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  108. 61180 print"                                      "
  109. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  110. 61200 au$="[210]obin [200]ood's [199]old":poke214,17:print
  111. 61205 printspc(20-len(au$)/2)"[152]"au$
  112. 61210 au$="[194]y [194]arbara [200]. [211]chulak ([195]) 1989":poke214,18:print
  113. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  114.